home *** CD-ROM | disk | FTP | other *** search
/ PC Open 101 / PC Open 101 CD 1.bin / CD1 / Video / Subtitleworkshop / SubtitleWorkshop251.exe / PascalScripts / Delete subtitle (only from translation).pas next >
Encoding:
Pascal/Delphi Source File  |  2004-02-10  |  700 b   |  40 lines
  1. // Delete subtitle (only from translation). Made by Bedazzle.
  2.  
  3. program ShiftSubs;
  4.  
  5. // -----------------------------------------------------------------------------
  6.  
  7. var
  8.   n: Integer;
  9.   s: Boolean;
  10.   i: Integer;
  11.   it: Integer;
  12.   ft: Integer;
  13.  
  14.   curr: Integer;
  15.   txt: String;
  16.  
  17. begin
  18.   n := GetSubtitleCount;
  19.  
  20.   s := false;
  21.  
  22.   for i := 1 to GetSubtitleCount do
  23.   begin
  24.      if (s = false) then
  25.      begin
  26.         if (IsSubtitleSelected(i) = true) then
  27.         begin
  28.            curr := i;
  29.            break;
  30.         end;
  31.      end;
  32.   end;
  33.  
  34.   for i := curr to GetSubtitleCount-1 do
  35.   begin
  36.      txt := GetSubtitleTrans(i+1);
  37.      SetSubtitleTrans(i, txt);
  38.   end;
  39. end.
  40.